home *** CD-ROM | disk | FTP | other *** search
/ The Utilities Experience / The Utilities Experience - Volume 1.iso / software / misc / a-d / 3.0iupdate / macros.lha / DisplayReadMe.rexx < prev    next >
OS/2 REXX Batch file  |  1994-09-20  |  855b  |  29 lines
  1. /* $VER: DisplayReadMe.rexx 1.0 (02.9.94)
  2.    Copyright 1994 Soft-Logik Publishing Corporation
  3.    May not be distributed without Soft-Logik Publishing Corporation's express written permission */
  4.  
  5. /* Purpose: Displays ReadMe.Now file from PageStream3: directory */
  6.  
  7. options results /* enable results */
  8. address 'PAGESTREAM'
  9.  
  10. getscreenname
  11. screen=result
  12.  
  13. cmd = 'version >t:temp'
  14. address command cmd
  15. if open(.IFile,'t:temp','R') then do
  16.     line = readln(.IFile)
  17.     ksver = strip(word(line,words(line)/2),t,' ,')   /* get kickstart version */
  18.     if (ksver>='39') then name='sys:utilities/multiview PageStream3:ReadMe.Now pubscreen '||screen
  19.         else name='sys:utilities/amigaguide PageStream3:ReadMe.Now pubscreen '||screen
  20. end
  21.  
  22. /* Display ReadMe File */
  23. address command name
  24.  
  25. /* Cleanup */
  26. call close(.IFile)
  27. address command 'delete t:temp quiet'
  28. EXIT
  29.